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COBSAB_DEEDIT - COBOL De-edit 15-SEP-19 42:34 YAX/VMS Macro V04-00 Page 1 
an g-8 p= 19Re iteioe COBRTL.SRCICOBDEEDIT.MAR; 1 ef Wd) 
£ COBSAR DEEDIT = COBOL De-edit 
T /1*0037 ; File: COBDEEDIT.MAR Edit: RKR1003 
s eececncecevevecesereverecencesecenqnonerccocqnonnecencoqncoessceeooosseseees 
*® 
'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


rare Te “arcleblart atte UNDER A LICENSE AND MAY BE USED AND COPIED 


Ooo 
CDOoOOCoooo 
Ooo 


COOCCCCOCOOOCOCOOOCOOOOOoO 


® 
* * 
* + 
* * 
* + 
® ® 
w ® 
s® ° WA ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
3* * 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
sd SHOULD NOT * 
® * 
& ® 
® 

® 

® 

® * 
* 


AND BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


: LITY FOR THE USE OR RELIABILITY OF ITS 
: § NOT SUPPLIED BY DIGITAL. 


OOOO COOCCOOCOOOOOOCOoOoooO 
SOOoOCoooooooooooooo 


COOOCOoCooooOoCoOoOooo 


* DIGITAL ASSUMES NO RESPONSIBI 
: SOFTWARE ON EQUIPMENT WHICH | 
ce 


RARAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAARERAEAERAEAAEES 
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+ 
FACILITY: COBOL Runtime Library 


ABSTRACT: 
Translation table to aid COBOL-generated code perform 
“de-editting’’. See more detailed functional description below. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 

AUTHOR: M. Jack, CREATION DATE: 01-JUL-1980 

MODIFIED BY: 

1-001 = Original. MLJ 01-JUL-1980 

1-002 - Wrapped standard RTL boilerplate and some commentary around 
table. RKR 3-SEP-80 


1-003 - Updated copyright to reflect 1981 release date and fixed 
incorrect version number. RKR 6-JAN-81 
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OBSAB_DEEDIT - COBOL De-edit 15=SEP=1984 AX/VMS Macro v04-00 Pp 
(0883 DECLARATIONS grseeri88e foicciog LekaNty caeicosocess.man;1 2% (8) | 
0 : ~SBTTL DECLARATIONS 
5 $ LIBRARY MACRO CALLS: 
5; 
$ ; EXTERNAL DECLARATIONS: 
090 8 ; Prevent undeclared symbols from being automatically global. 
0 60 ° -DSABL GBL 
$09 61; 
990 64 ; MACROS: 
00 64: NONE 
$09 65; 
0000 66 : EQUATED SYMBOLS: 
9900 67 ; 
000 68 ;: NONE 
0000 69: 
44 4 3 OWN STORAGE: 
00000000 72° -PSECT _COBSDATA pit USR, CON, REL, LCL, NOSHR, - 
0000 «=? OEXE, RD. WRT, LONG 
0000 74; 
0000 75: NONE 
0000 76: 
0000 77 : PSECT DECLARATIONS: 
0000 78: | 
0000 79 -PSECT _COBSCODE PIC, USR, CON, REL. LCL, SHR, - | 
00000000 80 EXE, RD, NOWRT. LONG | 


0000 81 


L 2 
COBSAB_DEEDIT - COBOL De-edit 15-SEP-1984 23:42:34 VAX/VMS Macro v04-00 P 3 
1-003 COBSABCDEEDIT © COBOL De-edit Translatio ‘o-sep-19be TOrtez0G LOMBN TE. SaecOMMcESer.man:1 2% cy 
; a -SBTTL COBSAB_DEEDIT = COBOL De-edit Translation Table 
5 ; FUNCTIONAL DESCRIPTION: 
0 : Compiled code uses this table for a MOVTC instruction when there is a 
8 : Numeric edited source and a numeric or numeric edited destination. 
; COBOL calls this case somed iting « The MOVTC gets enerated if there 
0 0 ; were floating characters or implicit or explicit BLANK WHEN ZERO, 
00 91 ; in order to translate any non-digits that might be in the result 
00 38 3 to zeros. 
000 93; 
00 94 COBSAB_DEEDIT:: 
44 $6 ; Octal Hex 
0 30 30 30 30 30 30 30 30 30 0000 9 -ASCII '00000000000000000000000000000000" : 000-037 00-1F 
SHS SESE RE REE ssh 
9 4 HS! $e 9 3 4 0 4 0 O09 98 ASCII ‘'00000000000000000123456789000000"' ; 040-077 20-3F 
0 0 30 30 9 0038 
4 30 3 HH 4 0 4 3 3 8 8 4 O94c 99 ASCII ''00000000000000000000000000000000"' ; 100-137 40-5F 
0 0 30 30 30 30 30 005 
HH Ht Ht 4 ° 4 5 4 3 4 Bpee 100 «ASCII ‘'00000000000000000000000000000000°' ; 140-177 60-7F 
0 30 30 30 30 30 30 30 sz 
30 30 3 0 30 30 30 30 30 30 30 30 goee 101 -ASCII ‘'00000000000000000000000000000000"' ; 200-237 80-9F 
30 30 50 0 30 80 30 30 30 30 30 30 0098 
30 30 30 30 30 30 30 30 30 30 30 30 OOAO0 102 ASCII ‘'00000000000000000000000000000000"' ; 240-277 A0-BF 
20 30 30 30 99 95 93 13 8 aD Ss 
Ha 30 3 3 30 rf 4 4 4 4 4 8 pace 103 «ASCII '00000000000000000000000000000000"' ; 300-337 CO-DF 
0 30 30 30 30 30 30 30 00D8 
30 30 30 30 30 30 30 $ 0 30 30 30 OQOEO 104 ASCII ‘00000000000000000000000000000000"" ; 340-377 EO-F F 
30 30 30 30 30 30 30 30 30 30 30 30 OOEC 
30 30 30 30 30 30 30 30 ths 105 
0100 106 END :; End of table COBSAB_DEEDIT 


COBSAB_DEEDIT 
Symbol table 


COBSAB_DEEDIT 00000000 RG 


PSECT name 


Initialization 
Command processing 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


The working set Limit was 900 
1682 bytes (4 pages) of virtua 


Page faults 


- COBOL De-edit iF a at $340: 36 AX/VMS Macro V04-00 Page 
6-SEP-1984 10:44:06 (CCOBRTL.SRCICOBDEEDIT.MAR;1 

02 

gecreeceeocoecean eo me + 

! Psect synopsis ! 

Foeeweoeeocoeoooseseces + 
Allocation PSECT No. Attributes 
4448 ( 8.) 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
00000 ( of G1 Tet PIC USR CON REL LCL NOSHR NOEXE R&D WRT NOVEC LONG 
0000100 ¢« 256.) 2¢ 2.) PIC USR CON’ REL LCL RD NOWRT NOVEC LONG 


ween ner es eee ee mow em moa} 


29 00:00:00.03 00:00:00.48 
114 00:00:00.34 00:00:01.61 
63 es SSE 99 380: 6 «is 
0 es So 4 : 00:00:00.00 
36 0:00:00.1 00:00:02.45 
1 00:00:00.01 00:00:00.01 

3 00:00:00.01 00:00:00.01 

0 00:00:00.00 00:00:00.00 
248 00:00:00.80 00:00:06.70 


ages. 
ot were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 1 
source lines were read in Pass 1, producin 
0 pages of virtual memory were used to define 


non-local and 0 local symbols. 
10 object records in Pass 2. 
macros. 


eceoreemecseeeoe ner semen ec n= $+ 


Macro Library name 
“S255SDUA2ZB:(SYSLIBISTARLET.MLB;2 0 tS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COBDEEDIT/OBJ=OBJ$:COBDEEDIT MSRC$:COBDEEDIT/UPDATE=(ENHS$: COBDEEDIT) 
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